From: Jeffrey C Honig <jch@bsdi.com>
Date: Mon, 20 Aug 2007 03:05:33 +0000 (+0000)
Subject: (mh-forward): Address SF 1730393.  When forwarding
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17316
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ea16a8b0a1fd402ff916ddaaae77fee40cce424a;p=emacs.git

(mh-forward): Address SF 1730393.  When forwarding
with mml, messages were included in reverse order.
---

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index b74c445238e..a71de8246c5 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -497,7 +497,9 @@ See also `mh-compose-forward-as-mime-flag',
                   (dolist (msg msgs)
                     (setq i (1+ i))
                     (mh-mml-forward-message (format description i)
-                                            folder msg))))))
+                                            folder msg)
+                    ;; Was inserted before us, move to end of file to preserve order
+                    (goto-char (point-max)))))))
         ;; Postition just before forwarded message
         (if (re-search-forward "^------- Forwarded Message" nil t)
             (forward-line -1)